#' 把TwoSampleMR包生成的MV_dat变成MendelianRandomization包可以用的MV_Input
#'
#' @param mv_dat M3_mv_harmonise_data生成的mv_dat
#'
#' @return MendelianRandomization包用的MV_Input
#' @export
#'
#' @examples
#'
#' \dontrun{
#'
#' library(Oneclick)
#'
#' MV_Input<- M4_mv_dat_to_MV_Input( mv_dat )
#'
#' }
#'
#'
#'
M4_mv_dat_to_MV_Input<-function(mv_dat){
  suppressMessages(require('MendelianRandomization') )

  MV_Input<- mr_mvinput( bx = as.matrix( mv_dat[["exposure_beta"]]) ,
                         bxse = as.matrix( mv_dat[["exposure_se"]] ),
                         by = mv_dat[["outcome_beta"]] ,
                         byse= mv_dat[["outcome_se"]],
                         exposure = colnames(mv_dat[["exposure_beta"]]) ,
                         outcome =  mv_dat[["outname"]][["outcome"]],
                         snps = rownames(mv_dat[["exposure_beta"]]))
  return(MV_Input)
}
